home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Photo Book 16: Sister 7
/
Digital Photo Book 16: Sister 7.iso
/
pc
/
DATA
/
main.dir
/
00007_Script_ÉÄÅ[ÉrÅ[ÉXÉNÉäÉvÉg
< prev
next >
Wrap
Text File
|
2004-11-20
|
778b
|
39 lines
global photo_max
global photo_start_no
global config
on startmovie
load_config
photo_start_no = config["PHOTO_START"]
if voidP(photo_start_no) then
photo_start_no = 4
end if
photo_max = findEmpty(member( 1,"DATA")) - photo_start_no
end
on photo_get(n)
if n < 0 then
n = n + photo_max
else if n >= photo_max then
n = n - photo_max
end if
return member( n + photo_start_no,"DATA")
end
on load_config
config = [:]
t = member("CONFIG").text
org_delimiter = the itemdelimiter
the itemdelimiter = "="
repeat with i = 1 to t.line.count
itemname = t.line[i].item[1]
itemvalue = t.line[i].item[2]
config[itemname] = itemvalue
end repeat
the itemdelimiter = org_delimiter
end